home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PCONFRE2.ARJ / PICBLOCK.LSP < prev    next >
Text File  |  1990-11-25  |  768b  |  21 lines
  1. (DEFUN C:BLK ()
  2.    ;
  3.    ; Mike Pillers     22:41:27  2/24/1987
  4.    ; Machine/ Mechanism Design Consultant
  5.    ; San Jose, CA          (408) 280-7959
  6.    ;
  7.    ; Allows user to pick a pre-defined block from the screen menu.
  8.    ; Program searches database for all existing blocks and displays
  9.    ; them on the screen. Requires AutoCAD version 2.6.
  10.    ;
  11.   (SETQ BLKS (CDR (ASSOC 2 (TBLNEXT "BLOCK" T))))
  12.   (SETQ BLKS (LIST (CDR (ASSOC 2 (TBLNEXT "BLOCK"))) BLKS))
  13.   (WHILE (SETQ TMP (TBLNEXT "BLOCK")) 
  14.          (SETQ BLKS (CONS (CDR (ASSOC 2 TMP)) BLKS))
  15.   )
  16.   (SETQ I 0)
  17.   (FOREACH N BLKS (PROGN (GRTEXT I N) (SETQ I (1+ I))))
  18.   (COMMAND "INSERT" (NTH (NTH 1 (GRREAD)) BLKS) )
  19.   (GRTEXT)
  20. )
  21.